home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / Yerk 3.64 / Supplement / Unsupported / Optionals / Neon Sieve < prev    next >
Text File  |  1992-12-19  |  336b  |  18 lines
  1. 8190 constant size
  2. 0 variable flags size allot
  3.  
  4. : do-prime
  5.     flags size 1 fill
  6.     0 size 0
  7.     do flags i+ c@
  8.         if 3 i+ i+ dup i+
  9.             size < if
  10.             size flags + over i+ flags + do 0 ic! dup
  11.             +loop then drop 1+
  12.         then
  13.     loop
  14.     . ." primes" cr
  15. ;
  16.  
  17. : sieve 10 0 do do-prime loop ." Done." cr ;
  18.